home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CIAFONLR.ZIP / ONLR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-04-21  |  10KB  |  557 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Integer  INTEGER001
  24.     Integer  INTEGER002
  25.     Integer  INTEGER003
  26.     Integer  INTEGER004
  27.     Integer  INTEGER005
  28.     Integer  INTEGER006
  29.     Integer  INTEGER007
  30.     Integer  INTEGER008
  31.     Integer  INTEGER009
  32.     Integer  INTEGER010
  33.     Integer  INTEGER011
  34.     Integer  INTEGER012
  35.     Integer  INTEGER013
  36.     Integer  INTEGER014
  37.     Integer  INTEGER015
  38.     Integer  INTEGER016
  39.     Integer  INTEGER017
  40.     Integer  INTEGER018
  41.     Integer  INTEGER019
  42.     String   STRING002
  43.     String   STRING003
  44.     String   STRING004
  45.     String   STRING005
  46.     String   STRING006
  47.     String   STRING007
  48.     String   STRING008
  49.     String   TSTRING009(30)
  50.     String   STRING010
  51.     String   STRING011
  52.     String   STRING012
  53.     String   TSTRING013(20)
  54.     String   STRING014
  55.     String   STRING015
  56.     String   TSTRING016(99)
  57.     String   STRING017
  58.     String   STRING018
  59.     String   STRING019
  60.     String   STRING020
  61.     String   STRING021
  62.     String   TSTRING022(20)
  63.  
  64. ;------------------------------------------------------------------------------
  65.  
  66.     TSTRING013(1) = PPEPath() + "ONLR01.PCB"
  67.     TSTRING013(2) = PPEPath() + "ONLR02.PCB"
  68.     TSTRING013(3) = PPEPath() + "ONLR03.PCB"
  69.     TSTRING013(4) = PPEPath() + "ONLR04.PCB"
  70.     TSTRING013(5) = PPEPath() + "ONLR05.PCB"
  71.     TSTRING013(6) = PPEPath() + "ONLR06.PCB"
  72.     TSTRING013(7) = PPEPath() + "ONLR07.PCB"
  73.     TSTRING013(8) = PPEPath() + "ONLR08.PCB"
  74.     TSTRING013(9) = PPEPath() + "ONLR09.PCB"
  75.     TSTRING013(10) = PPEPath() + "ONLR10.PCB"
  76.     TSTRING013(11) = PPEPath() + "ONLR01.DAT"
  77.     TSTRING013(12) = PPEPath() + "ONLR02.DAT"
  78.     TSTRING013(13) = PPEPath() + "ONLR03.DAT"
  79.     TSTRING013(14) = PPEPath() + "ONLR.CFG"
  80.     TSTRING013(15) = PPEPath() + "ONLR04.DAT"
  81.     INTEGER017 = 15
  82.     For INTEGER004 = 1 To INTEGER017
  83.         If (Exist(TSTRING013(INTEGER004)) == 0) Then
  84.             Log "ONLR: Can't Open: " + TSTRING013(INTEGER004) + ", #" + String(INTEGER004), 0
  85.             End
  86.         Endif
  87.     Next
  88.     STRING002 = "1.00"
  89.     STRING012 = "N"
  90.     INTEGER001 = 5
  91.     INTEGER004 = 0
  92.     INTEGER002 = 1
  93.     BOOLEAN001 = 0
  94.     FOpen 1, TSTRING013(14), 0, 0
  95.     FGet 1, INTEGER009
  96.     FGet 1, STRING015
  97.     FGet 1, INTEGER011
  98.     FGet 1, STRING017
  99.     FGet 1, INTEGER012
  100.     FGet 1, INTEGER014
  101.     FGet 1, INTEGER015
  102.     FGet 1, STRING019
  103.     FGet 1, INTEGER016
  104.     FGet 1, STRING020
  105.     FGet 1, INTEGER018
  106.     FClose 1
  107.     GetUser
  108.     If (U_Sec < INTEGER009) Then
  109.         End
  110.     Endif
  111.     If (STRING015 == "Y") Then
  112.         For INTEGER004 = 1 To INTEGER011
  113.             If (Exist(PPEPath() + "STAT." + String(INTEGER004)) == 0) Then
  114.                 Log "ONLR: Can't Open: " + TSTRING013(INTEGER017), 0
  115.                 End
  116.             Endif
  117.         Next
  118.         DispFile TSTRING013(1), 1
  119.         STRING012 = ""
  120.         InputStr " _", STRING012, 0, 1, "aA", 8 + 256
  121.         If (STRING012 <> "A") Then
  122.             INTEGER004 = Random(INTEGER011)
  123.             If (INTEGER004 == 0) Then
  124.                 INTEGER004 = 1
  125.             Endif
  126.             If (INTEGER006 == 0) Then
  127.                 INTEGER006 = 1
  128.             Endif
  129.             STRING014 = PPEPath() + "STAT." + String(INTEGER004)
  130.             DispFile STRING014, 1
  131.             PrintLn 
  132.             PrintLn "@PAUSE@"
  133.         Endif
  134.     Endif
  135.     PrintLn 
  136.     If (STRING017 == "Y") Then
  137.         PrintLn 
  138.         DispFile TSTRING013(2), 1
  139.         PrintLn 
  140.         FOpen 1, TSTRING013(11), 0, 0
  141.         FGet 1, INTEGER013
  142.         For INTEGER004 = 1 To INTEGER013
  143.             FGet 1, TSTRING016(INTEGER004)
  144.             Color INTEGER015
  145.             Print Chr(34)
  146.             Color INTEGER014
  147.             Print TSTRING016(INTEGER004)
  148.             Color INTEGER015
  149.             PrintLn Chr(34)
  150.         Next
  151.         FClose 1
  152.         PrintLn 
  153.         DispFile TSTRING013(3), 1
  154.         STRING012 = "N"
  155.         InputStr "", STRING012, 15, 1, "yYnN", 2 + 4 + 8 + 256
  156.         If (STRING012 == "Y") Then
  157.             PrintLn "@POFF@"
  158.             FOpen 1, TSTRING013(15), 0, 0
  159.             For INTEGER004 = 1 To 15
  160.                 FGet 1, STRING011
  161.                 TSTRING009(INTEGER004) = " " + STRING011 + Space(9 - Len(STRING011))
  162.             Next
  163.             INTEGER004 = 0
  164.             FClose 1
  165.             Cls
  166.             PrintLn 
  167.             DispFile TSTRING013(4), 1
  168.             AnsiPos INTEGER006, INTEGER001
  169.             :LABEL001
  170.             If (BOOLEAN001) Goto LABEL009
  171.             STRING008 = ""
  172.             AnsiPos INTEGER006 + 1, INTEGER001
  173.             While (STRING008 == "") Do
  174.                 STRING008 = Inkey()
  175.             EndWhile
  176.             If (INTEGER008 > 78) Then
  177.                 If ((STRING008 <> "DEL") || (STRING008 <> "LEFT")) Then
  178.                     STRING008 = ""
  179.                 Endif
  180.             Endif
  181.             If (STRING008 == "#") Then
  182.                 For INTEGER005 = 0 To 15
  183.                     INTEGER008 = INTEGER001 + 1
  184.                     INTEGER007 = INTEGER005 * 10 - 10
  185.                     If (INTEGER005 > 8) Then
  186.                         INTEGER007 = INTEGER007 - 80
  187.                         INTEGER008 = INTEGER008 + 1
  188.                     Endif
  189.                     AnsiPos INTEGER007, INTEGER008
  190.                     STRING011 = "@X0" + I2S(INTEGER005, 16) + TSTRING009(INTEGER005)
  191.                     Print STRING011
  192.                 Next
  193.                 BOOLEAN003 = 1
  194.                 BOOLEAN002 = 0
  195.                 INTEGER003 = 1
  196.                 Print " "
  197.                 :LABEL002
  198.                 If (BOOLEAN002) Goto LABEL006
  199.                 If (BOOLEAN003) Then
  200.                     INTEGER008 = INTEGER001 + 1
  201.                     INTEGER007 = INTEGER003 * 10 - 10
  202.                     If (INTEGER003 > 8) Then
  203.                         INTEGER007 = INTEGER007 - 80
  204.                         INTEGER008 = INTEGER008 + 1
  205.                     Endif
  206.                     AnsiPos INTEGER007, INTEGER008
  207.                     STRING010 = "@X0" + I2S(INTEGER003, 16)
  208.                     Print STRING010 + TSTRING009(INTEGER003)
  209.                     INTEGER008 = INTEGER001 + 1
  210.                     INTEGER007 = INTEGER002 * 10 - 10
  211.                     If (INTEGER002 > 8) Then
  212.                         INTEGER007 = INTEGER007 - 80
  213.                         INTEGER008 = INTEGER008 + 1
  214.                     Endif
  215.                     AnsiPos INTEGER007, INTEGER008
  216.                     If (INTEGER002 == 7) Then
  217.                         STRING010 = "@X0" + I2S(INTEGER002, 16) + "[" + Mid(TSTRING009(INTEGER002), 2, Len(TSTRING009(INTEGER002)) - 2) + "]"
  218.                         Goto LABEL003
  219.                     Endif
  220.                     STRING010 = "@X7" + I2S(INTEGER002, 16) + TSTRING009(INTEGER002)
  221.                     :LABEL003
  222.                     Print STRING010
  223.                 Endif
  224.                 STRING011 = ""
  225.                 While (STRING011 == "") Do
  226.                     STRING011 = Inkey()
  227.                 EndWhile
  228.                 INTEGER003 = INTEGER002
  229.                 BOOLEAN003 = 0
  230.                 If (STRING011 == Chr(13)) Then
  231.                     BOOLEAN002 = 1
  232.                     Goto LABEL004
  233.                 Endif
  234.                 If (STRING011 == "RIGHT") Then
  235.                     INTEGER002 = INTEGER002 + 1
  236.                     BOOLEAN003 = 1
  237.                     Goto LABEL004
  238.                 Endif
  239.                 If (STRING011 == "LEFT") Then
  240.                     INTEGER002 = INTEGER002 - 1
  241.                     BOOLEAN003 = 1
  242.                     Goto LABEL004
  243.                 Endif
  244.                 If (STRING011 == "DOWN") Then
  245.                     INTEGER002 = INTEGER002 + 8
  246.                     BOOLEAN003 = 1
  247.                     Goto LABEL004
  248.                 Endif
  249.                 If (STRING011 == "UP") Then
  250.                     INTEGER002 = INTEGER002 - 8
  251.                     BOOLEAN003 = 1
  252.                 Endif
  253.                 :LABEL004
  254.                 If (INTEGER002 < 1) Then
  255.                     INTEGER002 = 15
  256.                     Goto LABEL005
  257.                 Endif
  258.                 If (INTEGER002 > 15) Then
  259.                     INTEGER002 = 1
  260.                 Endif
  261.                 :LABEL005
  262.                 Goto LABEL002
  263.                 :LABEL006
  264.                 AnsiPos INTEGER008, INTEGER001
  265.                 INTEGER004 = INTEGER004 + 4
  266.                 Print "@X0" + I2S(INTEGER002, 16)
  267.                 STRING008 = "╧X0" + I2S(INTEGER002, 16)
  268.                 STRING018 = STRING018 + STRING008
  269.                 AnsiPos 1, INTEGER001 + 1
  270.                 PrintLn Space(80)
  271.                 AnsiPos 1, INTEGER001 + 2
  272.                 PrintLn Space(80)
  273.                 Goto LABEL008
  274.             Endif
  275.             If (STRING008 == "DOWN") Then
  276.                 STRING008 = ""
  277.                 Goto LABEL008
  278.             Endif
  279.             If (STRING008 == "UP") Then
  280.                 STRING008 = ""
  281.                 Goto LABEL008
  282.             Endif
  283.             If (STRING008 == "RIGHT") Then
  284.                 STRING008 = ""
  285.                 Goto LABEL008
  286.             Endif
  287.             If ((STRING008 == Chr(8)) || (STRING008 == "LEFT")) Then
  288.                 If (Mid(STRING018, INTEGER004 - 3, 2) == "╧X") Then
  289.                     INTEGER019 = Len(STRING018)
  290.                     STRING018 = Left(STRING018, INTEGER019 - 4)
  291.                     INTEGER004 = INTEGER004 - 4
  292.                     Print "@X07"
  293.                     AnsiPos 1, 6
  294.                     BOOLEAN004 = 1
  295.                     Print "@X00@X08Color deleted.@XFF"
  296.                     Goto LABEL007
  297.                 Endif
  298.                 STRING018 = Left(STRING018, Len(STRING018) - 1)
  299.                 Backup 1
  300.                 Print " "
  301.                 Backup 1
  302.                 INTEGER004 = INTEGER004 - 1
  303.                 INTEGER006 = INTEGER006 - 1
  304.                 :LABEL007
  305.                 If (INTEGER004 < 0) Then
  306.                     INTEGER004 = 0
  307.                 Endif
  308.                 If (INTEGER006 < 0) Then
  309.                     INTEGER006 = 0
  310.                 Endif
  311.                 Goto LABEL008
  312.             Endif
  313.             If (STRING008 == Chr(13)) Then
  314.                 BOOLEAN001 = 1
  315.                 Goto LABEL008
  316.             Endif
  317.             INTEGER004 = INTEGER004 + 1
  318.             INTEGER006 = INTEGER006 + 1
  319.             AnsiPos INTEGER006, INTEGER001
  320.             Print STRING008
  321.             If (BOOLEAN004 == 1) Then
  322.                 AnsiPos 1, 6
  323.                 Print Space(14)
  324.                 BOOLEAN004 = 0
  325.             Endif
  326.             STRING018 = STRING018 + STRING008
  327.             :LABEL008
  328.             Goto LABEL001
  329.             :LABEL009
  330.             PrintLn "@PON@"
  331.             STRING018 = Replace(STRING018, "╧", "@")
  332.             AnsiPos 1, INTEGER001 + 3
  333.             If (STRING018 <> "") Then
  334.                 PrintLn "@X08" + Chr(34) + "@X07" + STRING018 + "@X08" + Chr(34)
  335.                 InputYN "Save this OneLiner", STRING012, 15
  336.                 PrintLn 
  337.             Endif
  338.             If ((Upper(STRING012) <> "Y") || (STRING018 == "")) Then
  339.                 PrintLn "@X0COneLiner Aborted!"
  340.                 PrintLn 
  341.                 PrintLn "@MORE@"
  342.                 Log "User ABORTED OneLiner: ", 0
  343.                 Log "> " + STRING018, 1
  344.                 Goto LABEL011
  345.             Endif
  346.             Log "User left new OneLiner: ", 0
  347.             Log "> " + STRING018, 1
  348.             FOpen 1, TSTRING013(11), 1, 0
  349.             If (INTEGER013 >= INTEGER012) Then
  350.                 For INTEGER004 = 1 To INTEGER012
  351.                     TSTRING016(INTEGER004) = TSTRING016(INTEGER004 + 1)
  352.                 Next
  353.                 TSTRING016(INTEGER012) = STRING018
  354.                 Goto LABEL010
  355.             Endif
  356.             Inc INTEGER013
  357.             TSTRING016(INTEGER013) = STRING018
  358.             :LABEL010
  359.             FPutLn 1, INTEGER013
  360.             For INTEGER004 = 1 To INTEGER013
  361.                 FPutLn 1, TSTRING016(INTEGER004)
  362.             Next
  363.             FClose 1
  364.             PrintLn 
  365.             PrintLn "@X0FOneLiner Saved!"
  366.             PrintLn 
  367.             PrintLn "@MORE@"
  368.         Endif
  369.     Endif
  370.     :LABEL011
  371.     If (STRING019 == "Y") Then
  372.         DispFile TSTRING013(5), 1
  373.         PrintLn 
  374.         DispFile TSTRING013(6), 1
  375.         PrintLn 
  376.         DispFile TSTRING013(12), 1
  377.         DispFile TSTRING013(6), 1
  378.         PrintLn 
  379.         If (OnLocal()) Then
  380.             STRING021 = "N"
  381.             InputStr "@X0FLOCAL@X07, How do you wish to log this call? @X08[@X0FL@X07ocal, @X0FR@X07emote, @X0FNOT LOGGED@X08] _", STRING021, 7, 1, "LRN", 8 + 256 + 8192
  382.             If (STRING021 == "") Then
  383.                 STRING021 = "N"
  384.             Endif
  385.             If (STRING021 == "R") Then
  386.                 InputStr "@X07Speed@X0F", STRING007, 7, 5, Mask_Num(), 8 + 256 + 8192 + 2 + 4
  387.                 If (STRING007 == "") STRING007 = "14400"
  388.                 PrintLn "Call logged at " + STRING007 + "bps"
  389.                 Goto LABEL012
  390.             Endif
  391.             If (STRING021 == "L") Then
  392.                 STRING007 = "LOCAL"
  393.                 PrintLn "Call listed as local."
  394.             Endif
  395.             :LABEL012
  396.             Goto LABEL013
  397.         Endif
  398.         STRING007 = Carrier()
  399.         :LABEL013
  400.         STRING007 = Space(5 - Len(STRING007)) + STRING007
  401.         FClose 1
  402.         FClose 2
  403.         If (STRING021 == "N") Then
  404.             PrintLn "Call was NOT listed."
  405.             Goto LABEL015
  406.         Endif
  407.         FOpen 1, TSTRING013(12), 0, 0
  408.         FGet 1, STRING011
  409.         For INTEGER004 = 1 To INTEGER016 - 1
  410.             FGet 1, TSTRING022(INTEGER004)
  411.         Next
  412.         FClose 1
  413.         Delete TSTRING013(12)
  414.         TSTRING022(INTEGER016) = "@X0F" + Mixed(U_Name())
  415.         TSTRING022(INTEGER016) = TSTRING022(INTEGER016) + "@POS:20@@X08[@X07" + STRING007 + "@X08] "
  416.         TSTRING022(INTEGER016) = TSTRING022(INTEGER016) + String(Date()) + " " + String(Time()) + " @X07"
  417.         If (INTEGER018 == 1) Then
  418.             TSTRING022(INTEGER016) = TSTRING022(INTEGER016) + Mixed(U_City)
  419.             Goto LABEL014
  420.         Endif
  421.         If (INTEGER018 == 2) Then
  422.             TSTRING022(INTEGER016) = TSTRING022(INTEGER016) + Mixed(U_Cmnt1)
  423.             Goto LABEL014
  424.         Endif
  425.         If (INTEGER018 == 3) Then
  426.             TSTRING022(INTEGER016) = TSTRING022(INTEGER016) + Mixed(U_Cmnt2)
  427.             Goto LABEL014
  428.         Endif
  429.         If (INTEGER018 == 4) Then
  430.             TSTRING022(INTEGER016) = TSTRING022(INTEGER016) + Mixed(U_Notes(1))
  431.             Goto LABEL014
  432.         Endif
  433.         If (INTEGER018 == 5) Then
  434.             TSTRING022(INTEGER016) = TSTRING022(INTEGER016) + Mixed(U_Notes(2))
  435.             Goto LABEL014
  436.         Endif
  437.         If (INTEGER018 == 6) Then
  438.             TSTRING022(INTEGER016) = TSTRING022(INTEGER016) + Mixed(U_Notes(3))
  439.             Goto LABEL014
  440.         Endif
  441.         If (INTEGER018 == 7) Then
  442.             TSTRING022(INTEGER016) = TSTRING022(INTEGER016) + Mixed(U_Notes(4))
  443.         Endif
  444.         :LABEL014
  445.         FOpen 1, TSTRING013(12), 1, 0
  446.         For INTEGER004 = 1 To INTEGER016
  447.             FPutLn 1, TSTRING022(INTEGER004)
  448.         Next
  449.         FClose 1
  450.         :LABEL015
  451.         PrintLn 
  452.         PrintLn "@MORE@"
  453.     Endif
  454.     If (STRING020 == "Y") Then
  455.         DispFile TSTRING013(7), 1
  456.         PrintLn 
  457.         FOpen 1, TSTRING013(13), 0, 0
  458.         FGet 1, INTEGER010
  459.         For INTEGER004 = 1 To INTEGER010
  460.             FGet 1, STRING011
  461.             PrintLn STRING011
  462.         Next
  463.         FClose 1
  464.     Endif
  465.     STRING003 = "┐º╧╟;2▀╣è£öûæ╪▀░æÜ│ûæÜìî▐▀ë╤▀"
  466.     STRING004 = "▀¥å▀╜èì₧æ▀ñ¡║»¡û¼║ó"
  467.     For INTEGER004 = 1 To Len(STRING003)
  468.         STRING005 = STRING005 + Chr(255 - Asc(Mid(STRING003, INTEGER004, 1)))
  469.     Next
  470.     For INTEGER004 = 1 To Len(STRING004)
  471.         STRING006 = STRING006 + Chr(255 - Asc(Mid(STRING004, INTEGER004, 1)))
  472.     Next
  473.     PrintLn 
  474.     Print STRING005 + STRING002 + STRING006
  475.  
  476. ;------------------------------------------------------------------------------
  477. ;
  478. ; Usage report (before postprocessing)
  479. ;
  480. ; ■ Statements used :
  481. ;
  482. ;    3       End
  483. ;    1       Cls
  484. ;    3       Color 
  485. ;    106     Goto 
  486. ;    135     Let 
  487. ;    13      Print 
  488. ;    32      PrintLn 
  489. ;    67      If 
  490. ;    10      DispFile 
  491. ;    7       FOpen 
  492. ;    9       FClose 
  493. ;    18      FGet 
  494. ;    3       FPutLn 
  495. ;    1       GetUser
  496. ;    1       Delete 
  497. ;    6       Log 
  498. ;    4       InputStr 
  499. ;    1       InputYN 
  500. ;    1       Inc 
  501. ;    12      AnsiPos 
  502. ;    2       Backup 
  503. ;
  504. ;
  505. ; ■ Functions used :
  506. ;
  507. ;    3       *
  508. ;    106     +
  509. ;    21      -
  510. ;    39      ==
  511. ;    5       <>
  512. ;    16      <
  513. ;    12      <=
  514. ;    5       >
  515. ;    25      >=
  516. ;    66      !
  517. ;    24      &&
  518. ;    15      ||
  519. ;    9       Len(
  520. ;    1       Upper()
  521. ;    4       Mid()
  522. ;    2       Left()
  523. ;    5       Space()
  524. ;    9       Chr()
  525. ;    2       Asc()
  526. ;    1       Random()
  527. ;    1       Date()
  528. ;    1       Time()
  529. ;    1       U_Name()
  530. ;    1       Replace()
  531. ;    2       Inkey()
  532. ;    5       String()
  533. ;    1       Mask_Num()
  534. ;    17      PPEPath()
  535. ;    1       OnLocal()
  536. ;    2       Exist()
  537. ;    6       I2S()
  538. ;    1       Carrier()
  539. ;    8       Mixed()
  540. ;
  541. ;------------------------------------------------------------------------------
  542. ;
  543. ; Analysis flags : No flag
  544. ;
  545. ;------------------------------------------------------------------------------
  546. ;
  547. ; Postprocessing report
  548. ;
  549. ;    12      For/Next
  550. ;    2       While/EndWhile
  551. ;    50      If/Then or If/Then/Else
  552. ;    0       Select Case
  553. ;
  554. ;------------------------------------------------------------------------------
  555. ;                 AEGiS Corp - Break the routines, code against the machines!
  556. ;------------------------------------------------------------------------------
  557.